home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / DOpus / opusmpega / arexx / Play-MPx.dopus5 < prev   
Encoding:
Text File  |  1998-03-18  |  998 b   |  30 lines
  1. /* AREXX Script for MPEG-Soundplaying Layer 1,2&3 Opus5.5+ Filetypes
  2. ** Displays Song, MPEG-Layer, Playtime in a Dopus Progress Window
  3. **
  4. ** This script requires the modules 'OpusMPEGA.dopus5' !
  5. ** *****************************************************
  6. ** $VER: Play-MPx.dopus5 3.0 (20.3.98) ©1995-1998 by Eckhard Ludwig (Eckhard@top.east.de) [Emailware]
  7. ** This program is Email-Ware !
  8. **
  9. ** Call as:
  10. ** --------------------------------------------------------------------------
  11. ** (Doubleklick)   ARexx DOpus5:ARexx/Play-MPx.dopus5 {f} {Qp} {Ql}
  12. ** --------------------------------------------------------------------------
  13. */
  14.  
  15. parse arg '"'Titel'"' portname handle
  16.  
  17. If ~SHOW("P",portname) THEN DO
  18.         SAY portname' is not a valid port!'
  19.     exit
  20. end
  21. options results
  22. address value portname
  23. If ~show('P','mpegport') then command 'OpusMPEGA'
  24.     else dopus send 'mpegport' 'STOP'
  25. /*DUMMY=delay(20)*/
  26. address command 'waitforport mpegport'
  27.  
  28. dopus send 'mpegport' 'PLAYSONG ' handle '"'Titel'"'
  29. exit
  30.